home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.5 Complementary Applications 2004 February / SGI IRIX 6.5 Complementary Applications 2004 February.iso / dist / cde.idb / usr / dt / share / examples / dtksh / TextCutBuf1.z / TextCutBuf1
Encoding:
Text File  |  2003-11-18  |  3.8 KB  |  137 lines
  1. #! /usr/dt/bin/dtksh
  2. #
  3. # TextCutBuf1
  4. #
  5. # Copyright 2000, Silicon Graphics, Inc.
  6. # ALL RIGHTS RESERVED
  7. # 
  8. # UNPUBLISHED -- Rights reserved under the copyright laws of the United
  9. # States.   Use of a copyright notice is precautionary only and does not
  10. # imply publication or disclosure.
  11. #
  12. # U.S. GOVERNMENT RESTRICTED RIGHTS LEGEND:
  13. # Use, duplication or disclosure by the Government is subject to restrictions
  14. # as set forth in FAR 52.227.19(c)(2) or subparagraph (c)(1)(ii) of the Rights
  15. # in Technical Data and Computer Software clause at DFARS 252.227-7013 and/or
  16. # in similar or successor clauses in the FAR, or the DOD or NASA FAR
  17. # Supplement.  Contractor/manufacturer is Silicon Graphics, Inc.,
  18. # 2011 N. Shoreline Blvd. Mountain View, CA 94039-7311.
  19. #
  20. # THE CONTENT OF THIS WORK CONTAINS CONFIDENTIAL AND PROPRIETARY
  21. # INFORMATION OF SILICON GRAPHICS, INC. ANY DUPLICATION, MODIFICATION,
  22. # DISTRIBUTION, OR DISCLOSURE IN ANY FORM, IN WHOLE, OR IN PART, IS STRICTLY
  23. # PROHIBITED WITHOUT THE PRIOR EXPRESS WRITTEN PERMISSION OF SILICON
  24. # GRAPHICS, INC.
  25. #
  26. ##########################################################################
  27. #  (c) Copyright 1993, 1994 Hewlett-Packard Company    
  28. #  (c) Copyright 1993, 1994 International Business Machines Corp.
  29. #  (c) Copyright 1993, 1994 Sun Microsystems, Inc.
  30. #  (c) Copyright 1993, 1994 Unix System Labs, Inc., a subsidiary of
  31. #      Novell, Inc.
  32. ##########################################################################
  33.  
  34.  
  35. #
  36. # This sample shell script demonstrates how the Text cut, copy and paste
  37. # facilities work.
  38. #
  39.  
  40. # Pushbutton Callback: cut the currently select text
  41. Cut()
  42. {
  43.    if XmTextCut $TEXT $(XtLastTimestampProcessed "-" $(XtDisplay "-" $TEXT)); 
  44.    then
  45.       echo "Cut occurred"
  46.    else
  47.       echo "No primary selection"
  48.    fi
  49. }
  50.  
  51. # Pushbutton Callback: copy the currently select text
  52. Copy()
  53. {
  54.    if XmTextCopy $TEXT $(XtLastTimestampProcessed "-" $(XtDisplay "-" $TEXT)); 
  55.    then
  56.       echo "Copy occurred"
  57.    else
  58.       echo "No primary selection"
  59.    fi
  60. }
  61.  
  62. # Pushbutton Callback: clear the text selection
  63. ClearSelection()
  64. {
  65.    XmTextClearSelection $TEXT $(XtLastTimestampProcessed "-" $(XtDisplay "-" $TEXT))
  66. }
  67.  
  68. # Pushbutton Callback: paste the cut buffer at the current insertion position
  69. Paste()
  70. {
  71.    if XmTextPaste $TEXT; then
  72.       echo "Paste occurred"
  73.    else
  74.       echo "No primary selection"
  75.    fi
  76. }
  77.  
  78.  
  79. ######################### Create the Main UI #################################
  80.  
  81. XtInitialize TOPLEVEL textCutBuf1 TextCutBuf1 "$0" "$@"
  82. XtSetValues $TOPLEVEL allowShellResize:True
  83.  
  84. XtCreateManagedWidget FORM form XmForm $TOPLEVEL \
  85.  
  86. XtCreateManagedWidget TEXT text XmText $FORM \
  87.     topAttachment:ATTACH_FORM \
  88.     topOffset:10 \
  89.     leftAttachment:ATTACH_FORM \
  90.     leftOffset:10 \
  91.     rightAttachment:ATTACH_FORM \
  92.     rightOffset:10 \
  93.     columns:40 \
  94.     value:"This is the default string"
  95.  
  96. XtCreateManagedWidget TEXT2 text2 XmText $FORM \
  97.     topAttachment:ATTACH_WIDGET \
  98.     topWidget:$TEXT \
  99.     topOffset:10 \
  100.     leftAttachment:ATTACH_FORM \
  101.     leftOffset:10 \
  102.     rightAttachment:ATTACH_FORM \
  103.     rightOffset:10 \
  104.     bottomAttachment:ATTACH_FORM \
  105.     bottomOffset:10 \
  106.     columns:40 \
  107.     editable:False
  108.  
  109. XtRealizeWidget $TOPLEVEL
  110.  
  111. XtCreateApplicationShell TOPLEVEL2 textCutBuf1a TopLevelShell
  112.  
  113. XtCreateManagedWidget RC rc XmRowColumn $TOPLEVEL2 \
  114.          orientation:HORIZONTAL \
  115.          numColumns:2 \
  116.          packing:PACK_COLUMN 
  117.  
  118. XtCreateManagedWidget PB1 pb1 XmPushButton $RC \
  119.     labelString:"Cut Selection"
  120. XtAddCallback $PB1 activateCallback "Cut"
  121.  
  122. XtCreateManagedWidget PB2 pb2 XmPushButton $RC \
  123.     labelString:"Copy Selection"
  124. XtAddCallback $PB2 activateCallback "Copy"
  125.  
  126. XtCreateManagedWidget PB3 pb3 XmPushButton $RC \
  127.     labelString:"Paste"
  128. XtAddCallback $PB3 activateCallback "Paste"
  129.  
  130. XtCreateManagedWidget PB4 pb4 XmPushButton $RC \
  131.     labelString:"Clear Selection"
  132. XtAddCallback $PB4 activateCallback "ClearSelection"
  133.  
  134. XtRealizeWidget $TOPLEVEL2
  135.  
  136. XtMainLoop
  137.